home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 6
/
006.d81
/
delta date
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
656b
|
27 lines
5 gosub5000
10 rem date difference
20 input"[147][197]arly date(m,d,y) ";m,d,y
30 gosub 1000:ke=k
40 input"[204]ate date(m,d,y) ";m,d,y
50 gosub 1000:df=k-ke
60 print"[196]ifference = ";df
70 input"[193]nother (y/n)";y$
80 if y$="y" then 20
90 goto63000
1000 if m>2 then m2=m+1:y2=y
1010 if m<=2 then m2=m+13:y2=y-1
1020 k=int(365.25*y2)+int(30.6001*m2)+d
1030 return
5000 poke53281,1:poke53280,5
5005 print"[147] [196][160][197][160][204][160][212][160][193][160][160][196][160][193][160][212][160][197]"
5010 print:print:printspc(18)"by"
5015 print:print:print" [210]ussell [202]ensen"
5020 poke783,peek(783)and254:poke781,24:poke782,13
5021 sys65520:print"<press a key>"
5025 poke198,0:wait198,1:geta$
5030 poke646,0:return
6999 end
63000 rem link back
63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
63020 poke198,0:poke631,13:poke632,13:poke198,2:end